home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / MATHS / ARCAUT / Automatons / Parity < prev    next >
Text File  |  1991-07-27  |  431b  |  27 lines
  1. AUTOMATON*
  2.  
  3.   Parity
  4.  
  5.   Similar to 'Forget Me Not', this is a two state Moore neighbourhood
  6.   automaton. It was devised by Edward Fredkin.
  7.  
  8. INITIALISATION*
  9.  
  10.   10DEF PROCdo
  11.   20*SetEval wrap on
  12.   30ENDPROC
  13.  
  14. SCREEN*
  15.  
  16.   10DEF PROCdo
  17.   20DIM buf% 256:SYS "OS_ReadVarVal","sux",buf%,256
  18.   30k%=RND(!buf%)
  19.   40GCOL 63 TINT 255:RECTANGLE FILL -k%/2,-k%/2,k%,k%
  20.   50ENDPROC
  21.  
  22. CODE*
  23.  
  24. ( READ_NEIG
  25.   CELL TM EOR BM EOR ML EOR MR EOR == )
  26.  
  27. END*